home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Splines.Obj < prev    next >
Encoding:
Text File  |  1996-01-25  |  9.5 KB  |  26 lines  |  [TEXT/.Ob4]
  1. ¯6D 
  2. ˇÃ–≤Â$›„qSplinesÇeXK¬ÿ˙£^∏wÉMakeOpenKMakeClosedXNew¬ÑÖ;‚ÜDisplay$…¢ãFiles$Ù…/Printer$ `<Oberon$ !Texts;‚WêFonts;ı‰ƒViewers$“ΔGraphics2ılxModules$”MGraphicFramesÜ ˇ¥ˇˇ™ˇ{ˇ>ˇrˇˇ/ˇ>˛ëˇ˛äˇ<˝òˇ˝ëˇ=¸Bˇˇ˘í˚
  3. ˚(˙„˙´˙… ˙d
  4. ˙O
  5. ˙D˘«
  6. ˘√
  7. ˘æ˘Å˘{˘u    ˘o˘i˘c
  8. ˘]˘WáNewSplines@@@@@@@@?ÄC0ÄC0?Ä@@@@?Ä?Ä@@@?Ä@@?Ä@@@@?Ä@@@?Ä?ÄC0à|¶æ¡ˇÿêî!ˇò;·8êA;√;§;Ö;f;G; öàz,ÉAÊö´C‡ö®ö3ˇˇ¿@¯\398~8ùö πW%<|⁄*®Ê|ß‚ö πW(<}:B©ID| ⁄8‡99 ÄBˇ–HÄAC‡ˇ§Ä8Ä!|¶∫¡ˇÿO‡ |¶øAˇËêî!ˇ∞;·8êA;√;§;Ö;f;Gö©zúZö©öD{b8~8ù8º8€8‡99 ÄBˇ–KˇˇUÄAÄ Ä!|¶ªAˇËO‡ |¶æ·ˇ‹9Åˇ¿Hêî!ˇÄ;·8êA;√;§;e;Ü;';Hˇ‡ê√¬ˇ»8~8ù¿;¿[Ïa∫¿õÏ£'∫¿€ ÏÂ7∫˝éˇ¿Lˇ‡L…"ˇ¿˝I8*ŸB¸E鮢¡y¡ôÌ´g∫¿Ï-∫¿Y Ïa∫¸Äéˇ¿Lˇ‡L»¢ˇ¿¸≈*ÿ¬¸%鮬8‡ÄBˇ–HÄA¿‚ˇºÔfi8*ˇû¯A¸ˇdÄPÄ!9Åˇ¿H|¶∫·ˇ‹O‡ ø!ˇ‰î!ˇ†;·8;√;§;Ö;f;G; |ô–@‰@ πW#:0ôˇˇ §TÖ:0Ÿˇˇ ¶T«:},.};<.}[.ÌhR|}{.39C‡ˇ¿3:ˇˇ πW(: πW):}õD.}æL.Ï h$|E./@˘T39ˇˇ πW*: πW+:1ô ¨UÉ: πW$:|=\.|[.|{$.Ïź πW%:|æ,.σ($|€U.C‡ˇ¨Ä!ª!ˇ‰O‡ |¶øAˇË9Åˇ–Hêî!˛†;·8êA;√;§;Ö;f¿˛¡Ì'@(¡Bˇ∏ÌjH$—\¡Çˇ¥¡ø\Ï r– ¿?\–?¨¿]¿}ÏÇ(¿¢ˇ∞σr¿ˇ\ÌÚ¡?\ÔËr”¸;@0€ˇˇö0@¸ ∫WG:}:1: ©U*: ∫WK:}^T.}~\.ÌäX(¡¢ˇ¨Ï`$–\ ∫WL:|b0öˇˇ §TÖ:|fl* ∫WG:}:¿&¨¿H\Ïa*¿Çˇ®Ï§Ú–£ ∫WI:}_J ∫WK:}üZ¿Ã\– ¨0z £Td: ∫WE:|˝$.},.Ì'@(¡Bˇ§Ìi≤ ∫WF:|ˇ2¡á\Ì´2 ∫WH:}?B¿    \ÔÕ2 ∫WJ:Ï?*|<U.ˇ‡ê3ZC‡˛Ù ∫WK:}üZ0zˇˇ £Td:|ø"¿Bˇ†¿e\ÏÇÚ–å ∫WF:¸5.;@0˚ˇˇ|ö8@‰Ä ∫WH:}?B ∫WJ:}R¿©¨¿À ÏÂ0$–Ȩ1ö ¨UÉ:|ü ∫WE:|fl* ∫WG:}:1: ©U*:}R¡¨¡(\¡K ÌhR|—d 3ZC‡ˇ|8 8ü\8ø¨8‹8˚Kˇ¸ùÄ0Ä!9Åˇ–H|¶ªAˇËO‡ |¶øAˇË9Åˇ¿Hêî!˛8;·8êA;√;§;Ö;f1õˇˇ ¨UÉ:0õˇ˛ §TÖ:}û.}æ,.Ï h(¿"ˇúÔ°$0€ˇˇ ¶T«:1ˇ˛ ®U    :|]<.|}L.ÏÇ(¿¢ˇòσrÏÊrÔár¡¡>ÌHH(¡bˇîÌãP$—üd¡¢ˇê¿dÏ-Ë:–?¿_d–_¥¿}¿ùÏ£ (¿¬ˇåÏÂ≤¡dÌ'2¡_dÔÈ≤Ì|¯*—|¡Çˇà—ü;@1[ˇ˛P@¯ ∫WK:}üZ0z £Td: ∫WE:}æ$.|,.Ï-(¿BˇÑÏb$–ld ∫WF:|ˇ21ˇˇ ®U    :}_J ∫WK:}üZ¿ä¥¿¨dσ(*¿‚ˇÄÌ≤— ∫WC:|ü ∫WE:|fl*¡&d—$¥0˙ ßTË: ∫WI:}]D.}}L.ÌäX(¡¢ˇ|Ï r ∫WJ:}R¿+dÏ@r ∫WL:|b¿cdÔ¬Ú ∫WD:Ïü*|ú%.ˇ‡ê ∫WE:|fl*¿¢ˇx–¶3ZC‡˛‡ ∫WG:}:1:ˇˇ ©U*:}R¿¬ˇt¿ÎdÌÈ˙— ∫WL:Ì?‡*}<e. ∫WC:|ü¡Bˇp—D;@0ªˇ˛ö(@¸Ä ∫WF:|ˇ2 ∫WH:}?B¡g¥¡âÌ´`$—ߥ1Z ™UK:}üZ ∫WC:|ü ∫WE:|fl*0˙ ßTË:}?B¿¥¿&d¿IÏ`|–l3ZC‡ˇ|88üd8ø¥8‹0˚ˇˇKˇ˘q88üd8ø¥8fl0˚ˇˇKˇ˘Y ∫WJ:¿ú|ºT.σ(* ∫WK:}üZ¿ˇ¡ Ì'@*0z £Td:}^$.ÌiP* ∫WE:}û,.Ì´`(ÔÊh$;@0€ˇˇ|ö0@‰0 ∫WG: ∫WH:}?B¿    |<<.Ï_<|\=.3ZC‡ˇÃ ∫WJ:¿|||U.ÄòÄ!9Åˇ¿H|¶ªAˇËO‡ |¶øˇ‡9Åˇ¿Hêî!˙–;·8êA;√;§;Ö;f;Gö©z}ã‚mÉÄêbˇl»Çˇh»¢ˇ`¸ƒ((–flö®öD|§⁄l¶Äê¬ˇl»‚ˇh…ˇ`˝'@(—?∞¡Bˇ\—_Pö´; ¿@¯ πW':}:ö πW)<}ZJ©j}ã‚mÉÄêbˇl…bˇh…ǡ`˝´`(—® πW$:|ø"0Ÿˇˇ ¶T«:}:¿¿(Ô‡( πW):}_Jö πW+<}öZ®lD|É⁄lÖÄê¢ˇl»Bˇh»bˇ`¸Ç(–ä∞ πW&:|ˇ21ˇˇ ®U    :}_J¿ß∞¿ ∞Ô≈0( πW+:}üZ¸‡˙˝ÚÌ'@*0yˇˇ £Td:|ø"¡EPÌiP*—lP39C‡˛¯öà⁄/ÜA˛08P8ü8ø`8ÿKˇ˜Õ8P8ü∞8ø8ÿKˇ˜πC‡,8P8ü8ø`8ÿKˇ˙58P8ü∞8ø8ÿKˇ˙!; 0¯ˇˇ|ô8@‰|1 ®U    :}_J πW+:}üZ¡äP¡¨PÏ h(¿"ˇXÔ°$0y £Td:|ø" πW&:|ˇ2¿E¿gÏÇ(Ô‰r π}?BÏΩr πW*:}R1ô ¨UÉ:|ü¿À`¿‰`Ì8*¡"ˇTÌIG¸Ìe≤—i† ππ|fl* πW':}:¡ÇˇL¡®`Ï r¿"ˇPÏA¯19 ©U*:}R¿k`ÏÇ(ÏΩ2–¶§ πô|b πW$:|ø"¿≈`–√® πŸ|ˇ2 πW(:}?B¿È–Á¨ πY}R πW,:|b¡P— ∞0ô §TÖ:|fl* πW':}:¡&∞¡H∞ÌiP(Ô›Ú π9}_JÌùr πW+:}üZ0y £Td:|ø"¡¨¿Ï-*¿BˇHÏbºÏåÚ–ä0 πŸ|ˇ2 πW(:}?B¿¢ˇ@¿…ÏÂ≤¡ˇDÌ(?∏1Y ™UK:}üZ¡LÌiP(ÌùÚ—á4 πy|ü πW%:|fl*¡¶—§8 π˘}: πW):}_J¿
  9. ∞–< πy}üZ πW#:|ü¿$P–,@39C‡˝Ä ππ|fl* πW':}:¿HP–F∞ π9}_J πW+:}üZ¿lP–j@; 0xˇˇ@¯h8~8ù ππ|fl*8¶†Ä¬ˇ¯ π˘}:8Ë0Åˇ¯19 ©I}R πô}?b¿ã∞¿©∞Ï$((KˇÚm39C‡ˇîÄÄ!9Åˇ¿H|¶ªˇ‡O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Äbˇ¸ÄBˇÃHÄA;√ûÅBë^ ÅbˇÏìÀÄÄ!|¶ª¡ˇ¯O‡ ø°ˇÙî!ˇ∏;·8;√;§ùÅùˇ¸Äbˇ¸lÄûˇ¸Ä¢ˇ¸ÄƒˇÙf(û9]ˇ¸9~8‡ |ȶÄÎÅ êÍÑÎï
  10. Å BˇêÍë
  11. 9k9J |Î$™|Í%™Ä!ª°ˇÙO‡ |¶æ¡ˇÿêî!ˇê;·8êA;√;Ñ;•:¿ÅǡÙÄlˇÄùˇÙdû®æ®‹e2û®˛©GBû´>û´Ç‹ñ©6 õH@¸hñ}[ ©v|ãPAÂTñ©ñ"`@¯Dñ|z¬®ñ
  12. ÑA˝0®º,Ö@Êû™˛C‡™¸Äfiˇ¸Ä‚ˇ¸ÅˇÙh8©<
  13. /    @˙`ûâ^
  14. /äA˛8v8Ä8ª8⁄8˛KˇÔ    8v8ó8ª8⁄8˛Kˇ¯°8v8Ä8ª8⁄8˛KˇÔ•C‡ú©|
  15. ,ã@Ê 8v8Ä8ª8⁄8˛KˇÓ±C‡t©ú
  16. / @˙ 8v8Ä8ª8⁄8˛KˇÓâC‡L8v8Ä8ª8⁄8˛KˇÓm8v8Ä8ª8⁄8˛Kˇ¯8v8Ä8ª8⁄8˛KˇÔ    Ä@Ä!|¶∫¡ˇÿO‡ øAˇËî!ˇ®;·8;√;§;ÖûÄ~ˇ¸Äǡ¸Ä£ˇÙe û®fi®˛f:ûÅˇ¸Å"ˇ¸ÅHˇÙjHû©~©ûDKb0{ˇ¸ÉËA˝00õ|ù AÂ$0∫ˇ¸‡A˘0⁄ú0A˝ 8`C‡8`C‡‡Ä!ªAˇËO‡ øÅˇî!ˇ∏;·8;√;Ñ;•Ä‚ˇÏÅˇÿÅ=ˇÙ|â@@Ê ûÅBˇÏÅjˇÿÅùˇÙlX®|∞~Ä!ªÅˇO‡ |¶øˇ‡êî!ˇ†;·8êA;√;Ñ;•;F;g; ;8|8ù8øÄBˇ‘HÄAÄûˇ¸Ä¢ˇ¸ÄƒˇÙf(û®ˇ1ˇˇ}    p±>8|8ù8øÄBˇ‘HÄAûâ_}Kt/ }Ä&UÉfl˛ò~û®ûô @¸48|8ùû πW%<|fi*8¶ÄBˇ‘KˇÏ›ÄA39C‡ˇƒû®˛|ò8@‰48|8ùû ∏W<}>B8©DÄBˇ‘KˇÏMÄA3C‡ˇƒÄ0Ä!|¶ªˇ‡O‡ |¶æ·ˇ‹êî!ˇò;·8êA;√;§;e;Ü;';H;:‡Å^ˇ¸Åbˇ¸ÅäˇÙlX8{8ú8Ω8fiÄBˇÏHÄA8{8úû®æT¶:0¶ÄBˇ‘HÄAûà˛/A˙ 8{8ú8†ÄBˇ‘HÄAC‡8{8ú8†ÄBˇ‘KˇÎAÄAû©ò@@¸48{8úû ∏W    <}^J®™ÄBˇ‘KˇÎiÄA3C‡ˇƒû©~|óX@‰48{8úû ∑VÏ<|æb®•DÄBˇ‘KˇÍÌÄA2˜C‡ˇƒÄ8Ä!|¶∫·ˇ‹O‡ |¶øˇ‡êî!ˇP;·8êA;√;§;ÖÄfiˇ¸Ä‚ˇ¸ÅˇÙh8ûâ>/    A˙ ;C‡;û´>;`õ»@¸\ ªWj<}Rû ªWl<|~b®ÉTÖ:∞´ ªWf<|ˇ2û ªWh<}>B©IDUK:±g03{C‡ˇ§û©ûUÉ:|cÍû®ûTÖ:|Ö‚8π8ÿ8ˇ99?09@ÄBˇÿHÄAÄÄÄ!|¶ªˇ‡O‡ |¶æÅˇ–|¿&êê¡î!ˇx;·8êA,ÉNf0B:¿:†:ÄÄBˇÙHÄA:£/A˙<ïÄı0/áA˛,8uÄBˇÙHÄAÄbˇ¸ÄBˇÃKˇ’ÄA:√ï´’,ï´u.;æ;[ñ≥÷ñ≥vDïÇï0;:‡,îAÊÑ/@¯|î´îñ ∑VË<}6B≥âî´4ñ ∑VÍ<}vR≥+Dú@¸;‹|ù‡@‰;ºÿ@¯;yö»@¸;Y2˜îÇîC‡ˇ||ò∏@‰Dñ ∏W <|vb®É|æ ∞£ñ ∏W<|ˆ2©D};@±'D3C‡ˇºAÛ@ñ ∑VÍ<}vRñ©ñ±ãñ ∑V„<|ññ®∂D∞§D2˜ñï®’$|Ê∞ˆñï©&}(ÿ±6ñ}^Ë1j±vñ}õ–0l∞vñ|Ä&TÖ߲ò∂ñ≤ˆñĬˇ‹àÊt|Ët±ñÅ"ë6 ïÄu8ñÄBˇÏHÄA8uÄBˇÙHÄA8u8ñÄBˇÙHÄAÄXÅ_TÄ!|¶}OÒ ∫Åˇ–O‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8`Kˇ˝EÄÄ!|¶ª·ˇ¸O‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8`Kˇ˝ÄÄ!|¶ª·ˇ¸O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÅbˇÏÄkˇËÄBˇÃKˇÈÄAêbÅÇå8Ãˇ¸8‚ˇ8ÄgÄáêfêÜÅàÅǡ4ëàÄbÉ<Ä8§ê£ êC$ĬÜ<‡9ë(êF,Å"â=@9jëi0êI4ÅÇå<`8Éêå@êLDÄ¢Ö<¿8ÊêÂ8êE<Åà= 9IëHHêHLÅbã=Ä8lêkPêKTÄÇÑ<†8≈êƒXêD\ÄÄ!|¶ª·ˇ¸O‡ âlˇ¸ˇ‰SplineDesc ˇ¯ˇˇˇˇPolyä !">Aù†£≠Ø∏∫Ωø≈Ù¯˙    $).59@GJRUX\ÄÉãé¥∏∫¬Δ…“’€›‰ÈÓÛ˙˛     #'=BIMVXayÇçíïñ°•´ÆØ∫æƒÀ”ÒÙ˝ %,/47<?EHOSWadmtw|Ñáéëñô§©Ø≤Œ›‡‰Â "*15}ÅÇÜäãüÆ≤Œœ⁄·ÁËÒ˜¯!(9?@IOPjkrwz{ÅÑÖçë∂√≈…ÀÕ’◊ÿ‹fiflıˆ¸˝
  17. #'+-25rz~Ñäêñú¢®ã¯308markcol‚{f·{
  18. xiÊ{nÁ{spÂ{|xË{x0„{yÈ{y0‰{¯”8markOrgcol‚{f·{
  19. xspÂ{|x„{y‰{¯í»8ShowPolycol‚{f·{
  20. xlim†{p‰{xqÊ{xt°{xÁ{yË{¯Œ(8SolveTriDiaga·{b‚{c„{iÊ{nÂ{y‰{¯Û®8OpenSplinea b‹c¨d„{d1†{d2°{iÂ{n‰{x·{y‚{¯Ïê8ClosedSplineab‰c¥d„{d1†{d2°{dn£{hn¢{iÂ{n‰{wÑx·{y‚{¯¬¯    8CompSplinecol‚{ds¢{dx†{dy°{f·{
  21. xiÊ{nÁ{p†xq∞xs–spÂ{|xx0„{xd‡y∞y0‰{ydįÿ8Newsp·{|¯˙8Copydst‚{dsrc·{d¯˜88DrawM„{|colË{fÈ{
  22. xhÁ{obj·{dwÊ{x‰{yÂ{¯£     8Selectableobj·{dx‚{x0‰{y„{y0Â{¯∏    8HandleM„{|obj·{d¯Ü
  23. (8ReadCÂ{lR„{tiÊ{jÁ{lenobj·{ds¯fi
  24. 08WriteCÊ{lW‰{tcno‚{iÁ{jË{obj·{d¯£ ¯8Printi‰{jÂ{nÊ{obj·{dopenÁ{uv0x‚{y„{¯À –8MakeSplineGÍ{
  25. xLÎ{
  26. |iÁ{nË{openå{splÈ{|x0·{x1‚{x2„{y0‰{y1Â{y2Ê{¯ÿ 8MakeOpen¯Â 8MakeClosed¯≤8$$methodh˜ SplineDescnopenuvƒ˜ Polyabcd t